10000 AN=49152:AD=AN:EN=AN+522 10002 PS=0:FORI=0TO15:READX:PS=PS+X:POKEAD+I,X:NEXT:READX:AD=AD+16 10004 IFPS<>XTHENSYS45640 10006 IFAD